Imports System
Imports System.Web
Imports System.IO.File
Public Class download_file
    Inherits System.Web.UI.Page
    Public sFile, pageid As String
    Public strErr, sFileSize, sFileDesc As String
    Protected WithEvents lblStepOne As System.Web.UI.WebControls.Label
    Protected WithEvents lblStepTwo As System.Web.UI.WebControls.Label
    Protected WithEvents lblStep3 As System.Web.UI.WebControls.Label
    Protected WithEvents lblError As System.Web.UI.WebControls.Label
    Public bErr As Boolean = False

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'bErr = False
        'strErr = ""
        'sFileSize = ""
        'sFileDesc = ""

        'oFS = CreateObject("scripting.filesystemobject")
        'If Not oFS.fileexists(Server.MapPath("/admin/support/downloads/" & sFile)) Then
        '    bErr = True
        '    strErr = "File requested not currently available."
        'Else
        '    oFile = oFS.GetFile(Server.MapPath("/admin/support/downloads/" & sFile))
        '    sFileSize = round(oFile.Size / 1000) & " kb"
        '    oFile = Nothing
        '    sTemp = Left(sFile, InStr(sFile, ".") - 1) & ".txt"
        '    If oFS.fileexists(Server.MapPath("/admin/support/downloads/" & sTemp)) Then
        '        oFile = oFS.OpenTextFile(Server.MapPath("/admin/support/downloads/" & sTemp))
        '        sFileDesc = oFile.readall()
        '        oFile = Nothing
        '    End If
        'End If
        'oFS = Nothing

    End Sub

End Class
